﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<!--#include file="../asp/typeshow.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>生成分类页</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
</head>
<body style="margin-left:50px;margin-top:0px;">
<%
Dim path,filepath,static_path
path=Trim(request.querystring("path"))
static_path=Replace(path,",","-")
Call ChangeStatic(1,0)
S_TEMPLATE=""
S_HTMLMBUFFER=""
S_RZPARAM.QueryString=RZ_PRE_TYPE_SHOW&"0-t"&path&".html"
Call TypeShow(1)
Call CreateFolders(GetPath(RZ_HTML_PATH&"/"&RZ_PRE_TYPE_SHOW&"0"))
filepath=GetPath(RZ_HTML_PATH&"/"&RZ_PRE_TYPE_SHOW&"0/t"&static_path&".html")
Call SaveFile(filepath,S_HTMLMBUFFER)

If app("rz_language")=2 Then 
Call ChangeStatic(1,1)
S_TEMPLATE=""
S_HTMLMBUFFER=""
S_RZPARAM.QueryString=RZ_PRE_TYPE_SHOW&"1-t"&path&".html"
Call TypeShow(1)
Call CreateFolders(GetPath(RZ_HTML_PATH&"/"&RZ_PRE_TYPE_SHOW&"1"))
filepath=GetPath(RZ_HTML_PATH&"/"&RZ_PRE_TYPE_SHOW&"1/t"&static_path&".html")
Call SaveFile(filepath,S_HTMLMBUFFER)
End If 

Dim rst,sqlt
Set rst = Server.CreateObject("ADODB.Recordset")
sqlt = "select * from [c_type] where path='0,"&path&",'"
rst.open sqlt,conn,1,3
rst("makehtmltime")=Now()
rst.update
rst.close
Set rst=Nothing
%>
<span style="color:blue;">成功生成分类内容显示网页</span>
<script type="text/javascript">
<!--
	parent.document.getElementById("mon").value="<%=RZ_PRE_TYPE_SHOW%><%=path%>done";
//-->
</script>
</body>
</html>